home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / os2 / memsz313.zip / CHINESE.CMD < prev    next >
OS/2 REXX Batch file  |  1996-01-17  |  3KB  |  148 lines

  1. /* CHINESE.CMD: Ñ╬ñññσªw╕╦ MemSizeíC */
  2.  
  3. '@Echo Off'
  4. 'CHCP 950'
  5.  
  6. /* Load REXXUTIL */
  7.  
  8. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  9. Call SysLoadFuncs
  10.  
  11.  
  12. /* Initialize */
  13.  
  14. Signal On Failure Name FAILURE
  15. Signal On Halt Name HALT
  16. Signal On Syntax Name SYNTAX
  17.  
  18. Call SysCls
  19. Say 'ªw╕╦ MEMSIZE ññ...'
  20. Say ''
  21.  
  22.  
  23. /* Verify the existence of the various component files. */
  24.  
  25. Language = 'CHINESE'
  26.  
  27. Result = SysFileTree( 'MEMSIZE.EXE', 'Files', 'F' )
  28. If Files.0 = 0 Then
  29.   Do
  30.   Say '┐∙ ╗~: ºΣñú¿∞ MEMSIZE.EXE └╔!'
  31.   Signal DONE
  32.   End
  33.  
  34. Result = SysFileTree( Language".DLL", 'Files', 'F' )
  35. If Files.0 = 0 Then
  36.   Do
  37.   Say '┐∙ ╗~: ºΣñú¿∞ 'Language'.DLL └╔!'
  38.   Signal DONE
  39.   End
  40.  
  41. Result = SysFileTree( Language".HLP", 'Files', 'F' )
  42. If Files.0 = 0 Then
  43.   Do
  44.   Say '┐∙ ╗~: ºΣñú¿∞ 'Language'.HLP └╔!'
  45.   Signal DONE
  46.   End
  47.  
  48. /* Ask for the target directory name. */
  49.  
  50. Say '╜╨┐ΘñJ▒z╖Q▒Nªw╕╦ MEMSIZE ¬║║╧║╨Ñ╪┐² (ñ║⌐w¡╚¼░ C:\OS2\APPS):'
  51. Parse Pull Directory
  52. If Directory = "" Then Directory = 'C:\OS2\APPS'
  53.  
  54.  
  55. /* Create the target directory if necessary. */
  56.  
  57. Result = SysFileTree( Directory, 'Dirs', 'D' )
  58. If Dirs.0 = 0 Then
  59.   Do
  60.   Result = SysMkDir( Directory )
  61.   if Result == 0 Then
  62.     Do
  63.     End
  64.   Else
  65.     Do
  66.     Say '┐∙ ╗~: ╡L¬k½╪Ñ▀Ñ╪╝╨Ñ╪┐²íC'
  67.     Signal DONE
  68.     End
  69.   End
  70. Say ''
  71.  
  72.  
  73. /* Ask for the target folder. */
  74.  
  75. Say '▒z╖Qªw╕╦ªb▒╥░╩╕Ω«╞º¿ññ╢▄? (Y/N)'
  76. Pull YesNo
  77. If YesNo = "Y" Then
  78.   Do
  79.   Folder = '<WP_START>'
  80.   Say '¬½Ñ≤╖|│Q⌐±╕m⌐≤▒╥░╩╕Ω«╞º¿ññíC'
  81.   End
  82. Else
  83.   Do
  84.   Folder = '<WP_DESKTOP>'
  85.   Say '¬½Ñ≤╖|│Q⌐±╕m⌐≤«α¡▒ñWíC'
  86.   End
  87. Say ''
  88.  
  89.  
  90. /* Destroy the old object, if present. */
  91.  
  92. Call SysDestroyObject( '<MEMSIZE>' )
  93. Call SysSleep( 5 )
  94.  
  95.  
  96. /* Perform the installation. */
  97.  
  98. Say 'Ñ┐ªb▒N MEMSIZE ╜╞╗s¿∞ ' Directory '...'
  99. Copy MEMSIZE.EXE Directory                  '1>NUL'
  100. Copy Language".DLL" Directory"\MEMSIZE.DLL" '1>NUL'
  101. Copy Language".HLP" Directory"\MEMSIZE.HLP" '1>NUL'
  102. Copy Language".DOC" Directory"\MEMSIZE.DOC" "1>NUL"
  103.  
  104. Result = SysFileTree( "HLP2INF.EXE", 'Files', 'F' )
  105. If Files.0 > 0 Then
  106.    Do
  107.    Result = SysFileTree( Directory"\MEMSIZE.INF", 'Files', 'F' )
  108.    If Files.0 > 0 Then
  109.       Do
  110.       "Erase" Directory"\MEMSIZE.INF"
  111.       End
  112.    "HLP2INF" Directory"\MEMSIZE.HLP"
  113.    End
  114.  
  115. Result = SysFileTree( "SNAPSHOT.EXE", 'Files', 'F' )
  116. If Files.0 > 0 Then
  117.    Do
  118.    Copy "SNAPSHOT.EXE" Directory"\SNAPSHOT.EXE"  '1>NUL'
  119.    End
  120.  
  121. Say '½╪Ñ▀╡{ªí¬½Ñ≤ññ...'
  122. Type = 'WPProgram'
  123. Title = '¿t▓╬╕Ω╖╜║╩╡°╛╣'
  124. Parms = 'OPEN=DEFAULT;MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\MEMSIZE.EXE;STARTUPDIR='Directory';OBJECTID=<MEMSIZE>;NOPRINT=YES;'
  125. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  126.  
  127. If Result = 1 Then
  128.   Say '¬½Ñ≤½╪Ñ▀º╣ª¿!  ñjÑ\ºiª¿íC'
  129. Else
  130.   Say '┐∙ ╗~: ╡L¬k½╪Ñ▀¬½Ñ≤íC'
  131.  
  132. Signal DONE
  133.  
  134. FAILURE:
  135. Say 'REXX Ñó▒╤íC'
  136. Signal DONE
  137.  
  138. HALT:
  139. Say 'REXX ░▒ñεíC'
  140. Signal DONE
  141.  
  142. SYNTAX:
  143. Say 'REXX ╗y¬k┐∙╗~íC'
  144. Signal DONE
  145.  
  146. DONE:
  147. Exit
  148.